1 کد زیر را درقسمت general نوشته
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
2 کد زیر را در قسمتload form نوشته یا بر روی یک command نوشته
DoEvents
BlockInput True 'True=1
Sleep 10000
BlockInput False 'False=0
3 میتوان به جای 10000 عدد دیگر نوشت به این ترتیب مدت زمان قفل بودن موس تعییر می کند .
نظرات شما عزیزان:
.: Weblog Themes By Pichak :.